home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / util / moni / Scout.lha / Scout / arexx / poptofront.scout < prev    next >
Encoding:
Text File  |  2001-11-27  |  621 b   |  23 lines
  1. /**************************************************************************
  2.  *         This ARexx script pops the window <window> to front.           *
  3.  *                     USAGE: poptofront <window>                         *
  4.  *            <window> can be title or address of the window.             *
  5.  **************************************************************************/
  6.  
  7. if showlist('p','SCOUT.1') < 1 then do
  8.   say "Scout is not running!"
  9.   exit
  10. end
  11. address 'SCOUT.1'
  12. parse arg window
  13.  
  14. options results
  15. options failat 20
  16.  
  17. if window = '' then do
  18.   say "usage: poptofront <window>"
  19.   exit
  20. end
  21.  
  22. PopToFront window
  23.